In SAS® Enterprise Miner™, "SAS Enterprise Miner and SAS Text Miner Procedures Reference for SAS 9.4, Fourth Edition" contains code for a CalProb macro.  The macro is in the German Credit Data Example on page 279 of the chapter "The SVMSCORE Procedure."  However, the macro contains incorrect code.

If you run the macro, then a syntax error is displayed.

The error is displayed because of an incorrect spelling in the code (where trim(Descr) ="Mimimum F";).  However, if you correct the spelling error and run the code, then the results of the PredProb variable are incorrect.  There are no errors or warnings to indicate that the results are incorrect.

To correct both problems, download and use the correct macro code from the Full Code tab of this note.

Operating System and Release Information

%macro CalProb(indata=, modelfit=, outdata=);
    proc sql noprint;
        select Value into :minP from &modelfit
        where trim(Descr) ="Minimum F";
        select Value into :maxP from &modelfit
        where trim(Descr) ="Maximum F";
    quit;

	data &outdata;
        PredProb=.;
        label PredProb ="Predict Probability";
        set &indata;
        if (_P_ ge 0) and (&maxP ne 0) then do;
            PredProb = _P_/&maxP;
        end;
        if (_P_ < 0) and (&minP ne 0) then do;
            PredProb = -_P_/&minP;
        end;
        if PredProb ne . then do;
            if PredProb > 1 then PredProb = 1;
            else if PredProb < -1 then PredProb = -1;
            PredProb =1 - (1+PredProb)/2;
        end;
    run;
%mend CalProb;